PC World Komputer 1997 May/Pcwk0597.iso/optimus/agata/home.dir/00006_1 chan.ls

Text File | 1997-02-20 | 510 b | 25 lines

property myChan, maxFrames, currFrame, castList
global theCoord

on birth me, chan
  set myChan to chan
  set the stretch of sprite myChan to 0
  return me
end

on startAnimation me
  set currFrame to 1
end

on Animate me
  if currFrame <= maxFrames then
    set castIndex to getAt(castList, currFrame)
    set the castNum of sprite myChan to castIndex
  end if
  if currFrame > maxFrames then
    set the castNum of sprite myChan to 0
    RemoveBOL(theCoord, me)
  end if
  set currFrame to currFrame + 1
end